home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / AmokEd / .aedrc next >
Text File  |  1996-09-26  |  7KB  |  257 lines
  1. # .aedrc für AmokEd V1.28 - 03 May 1992
  2.  
  3. # tabs and margin settings
  4.  
  5. set tabs 2
  6. margin            70
  7. tabstop        $tabs
  8. pageset           90
  9.  
  10. set BlockLeft  (goto block while cb (tabunindent down first)) # Bl. 1 ausrücken
  11. set BlockRight (goto block while cb (tabindent down first))   # Bl. 1 einrücken
  12.  
  13. ### Menu definieren
  14.  
  15. menuoff
  16. menuadd Project (    Clear) (noscrupdate unblock top block bottom block bdelete chfilename unnamed)
  17. menuaddsep Project
  18. menuadd Project (A-O Insert file...) sA-o
  19. menuadd Project (A-o Load...) A-o
  20. menuadd Project (A-N Load new...) As-n
  21. menuadd Project (    Retrive) (newfile \$filename)
  22. menuadd Project (A-n New Window) A-n
  23. menuadd Project (A-w Save) A-w
  24. menuadd Project (A-W Save as...) As-w
  25. menuadd Project (    Save block...) (arpbsave)
  26. menuaddsep Project
  27. menuadd Project (    Print) (saveas prt:)
  28. menuadd Project (    Print block) (bsave prt:)
  29. menuaddsep Project
  30. menuadd Project (A-q Quit) A-q
  31. menuadd Project (A-Q Save & Quit) As-q
  32. menuaddsep Project
  33. menuadd Project (A-BS *Iconify*) A-BS
  34. menuaddsep Project
  35. menuadd Project (    About) version
  36.  
  37. map sA-o arpinsfile
  38. map  A-o arpload
  39. map  A-n newwindow
  40. map  sA-n (newwindow arpload)
  41. map  A-w saveold
  42. map sA-w arpsave
  43. map  A-q quit
  44. map sA-q (if m saveold quit)
  45. map  A-BS (map R-rmb (~iconify unmap R-rmb~) iconify)
  46.  
  47. menuadd Edit (A-S Find...) sA-s
  48. menuadd Edit (A-s Next) A-s
  49. menuadd Edit (A-a Prev) A-a
  50. menuaddsep Edit
  51. menuadd Edit (A-R Multireplace...) sA-r
  52. menuadd Edit (A-r Next-Replace) A-r
  53. menuadd Edit (A-A Prev-Replace) A-A
  54.  
  55. map sA-s (escimm (find ))
  56. map  A-s next
  57. map  A-a prev
  58. map sA-r (escimm (multireplace ))
  59. map  A-r nextr
  60. map sA-a prevr
  61.  
  62. menuaddsep Edit
  63. menuadd Edit ( c-del Del Line) c-del
  64. menuadd Edit (ac-del Undel Line) ac-del
  65. menuadd Edit ( s-del Del Word) s-del
  66. menuadd Edit (as-del Undel Word) as-del
  67. menuadd Edit ( a-del Rem EOL) a-del
  68. menuadd Edit ( a-bs  Rem BOL) a-bs
  69.  
  70. set delword (while \$cond (ifelse !r del abort)
  71. map    bs (ifelse !l bs (if !t up last join right))
  72. map    del (ifelse !r del (if !b (down up join))
  73. map  c-del deline
  74. map ac-del undeline
  75. map  s-del (if !r (scanf %s ifelse !ca (ifelse c=32 (set cond c=32) (set cond (!ca ifelse c=32 abort))) (set cond ca) \$delword))
  76. map as-del (`\$scanf')
  77. map  a-del remeol
  78. map  a-bs  rembol
  79.  
  80. menuadd Block (A-b Begin) A-b
  81. menuadd Block (A-B End) sA-b
  82. menuadd Block (A-c Copy Block) A-c
  83. menuadd Block (A-m Move Block) A-m
  84. menuadd Block (A-x Delete Block) A-x
  85.  
  86. map  A-b (unblock block)
  87. map sA-b block
  88. map  A-c bcopy
  89. map  A-m bmove
  90. map  A-x bdelete
  91.  
  92. menuaddsep Block
  93. menuadd Block (c-u Unmark) c-u
  94. menuadd Block (A-I Pushmark) pushmark
  95. menuadd Block (A-i Popmark) popmark
  96.  
  97. #c-u ist Default-Belegung
  98. map  A-i popmark
  99. map sA-i pushmark
  100.  
  101. menuaddsep Block
  102. menuadd Block (a-left  TAB left) $BlockLeft
  103. menuadd Block (a-right TAB right) $BlockRight
  104.  
  105. map a-left  $BlockLeft
  106. map a-right $BlockRight
  107.  
  108. menuadd Special (c-help Undo) undo
  109. menuaddsep Special
  110. menuadd Special (A-d Date) A-d
  111. menuadd Special (A-d Time) A-t
  112. menuadd Special (A-- Enter ASCII) A--
  113.  
  114. map c-help undo
  115. map A-d (rx "'('||date()')')
  116. map A-t (rx "'('||time()')')
  117. map A-- (escimm (tlate ))
  118.  
  119. menuaddsep Special
  120. menuadd Special ( A-u Uppercase Word) A-u
  121. menuadd Special ( A-U Lowercase Word) sA-u
  122. menuadd Special ( A-g Change case Char) A-g
  123. menuadd Special ( A-G Change case Word) sA-g
  124. menuadd Special (cA-u Uppercase Block) cA-u
  125. menuadd Special (cA-U Lowercase Block) csA-u
  126. menuadd Special (c-nk5 Swapcharakters) c-nk5
  127. menuaddsep Special
  128. menuadd Special (help  Reformat) reformat
  129.  
  130. map   A-u (while cl (tlate -32 right))
  131. map  sA-u (while cu (tlate +32 right))
  132. map   A-g (ifelse cu (tlate +32) (tlate -32))
  133. map  sA-g (while ca (IF !cn A-g right))
  134. map  cA-u (goto block while cb (first while !r (if cl (tlate -32) rigth) down)) # Uppercase Block
  135. map csA-U (goto block while cb (first while !r (if cu (tlate +32) rigth) down)) # Lowercase Block
  136. map   c-nk5 swapchar
  137. map -help reformat
  138.  
  139. menuaddt Settings (s-nk0 Toggle InsertMode) s-nk0
  140. menuaddt Settings (a-[   Toggle NumLock) a-[
  141. menuaddt Settings (a-]   Toggle Worpwrap) a-]
  142. menuaddt Settings (      Toggle Case sensity) (toggle ignorecase)
  143. menuaddt Settings (      Toggle SaveTabs) (toggle savetabs)
  144. menuaddsep Settings
  145. menuadd  Settings (      Save Config) saveconfig
  146. menuadd  Settings (      Save Config As...) saveconfigas
  147.  
  148. map s-nk0 (checktoggle (Settings-s-nk0 Toggle InsertMode) toggle insertmode)
  149. map a-] (checktoggle (Settings-a-]   Toggle Worpwrap) toggle wordwrap)
  150. map a-[ (checktoggle (Settings-a-[   Toggle NumLock) toggle NumLock)
  151.  
  152. menuadd Move (A-j Jump to Line) A-j
  153. menuadd Move (A-J Jump to Block) A-J
  154. menuaddsep Move
  155. menuadd Move (A-! Mark Location 1) sA-1
  156. menuadd Move (A-" Mark Location 2) sA-2
  157. menuadd Move (A-§ Mark Location 3) sA-3
  158. menuadd Move (A-1 Jump mark 1) A-1
  159. menuadd Move (A-2 Jump mark 2) A-2
  160. menuadd Move (A-3 Jump mark 3) A-3
  161.  
  162. map  A-j (escimm (goto ))
  163. map sA-j (goto block)
  164.  
  165. map A-1 (pong 1)
  166. map As-1 (ping 1)
  167. map A-2 (pong 2)
  168. map As-2 (ping 2)
  169. map A-3 (pong 3)
  170. map As-3 (ping 3)
  171.  
  172. menuaddsep Move
  173. menuadd Move (Alt Cursor Key) null
  174. menuadd Move (  move Block left) $BlockLeft
  175. menuadd Move (  move Block right) $BlockRight
  176. menuadd Move (Shift Cursor Key) null
  177. menuadd Move (  Pageup) Pageup
  178. menuadd Move (  Pagedown) Pagedown
  179. menuadd Move (  Word left) wleft
  180. menuadd Move (  Word rigth) wright
  181. menuadd Move (Ctl Cursor Key) null
  182. menuadd Move (  Top) top
  183. menuadd Move (  Bottom) bottom
  184. menuadd Move (  Beg Line) first
  185. menuadd Move (  End Line) last
  186. menuon
  187.  
  188. map s-up top
  189. map s-down bottom
  190. map s-left first
  191. map s-right last
  192.  
  193. map c-up pageup
  194. map c-down pagedown
  195. map c-right wright
  196. map c-left wleft
  197.  
  198. ## Menu Ende
  199.  
  200. map  -left (ifelse l (up last) left)
  201. map  -right right
  202.  
  203. map return (split first down indent)
  204. map s-return (down firstnb)
  205. map enter -return
  206. map s-enter s-return
  207. map -tab tab
  208. map s-tab backtab
  209.  
  210. map a-. ((·))
  211.  
  212. unmap R-rmb
  213.  
  214. resettoggle wordwrap
  215. resettoggle savetabs
  216. resettoggle numlock
  217. settoggle insertmode checkset (Settings-s-nk0 Toggle InsertMode)
  218.  
  219. #map  a-esc     ((›))             #CSI
  220. #map  a-f1      (a-esc (30m))     #grey
  221. #map  a-f2      (a-esc (31m))     #black
  222. #map  a-f3      (a-esc (32m))     #white
  223. #map  a-f4      (a-esc (33m))     #blue
  224. #map  a-f5      (a-esc (41;30m))  #reverse
  225. #map  a-f6      (a-esc (0m))      #normal
  226. #map  a-f7      (a-esc (0;0;H) a-esc (J))       #cls
  227. #map a-f8       (find () while c<>109 del del) #del CSI
  228.  
  229. map a-nk7 (`7')
  230. map a-nk8 (`8')
  231. map a-nk9 (`9')
  232. map a-nk4 (`4')
  233. map a-nk5 (`5')
  234. map a-nk6 (`6')
  235. map a-nk1 (`1')
  236. map a-nk2 (`2')
  237. map a-nk3 (`3')
  238. map a-nk0 (`0')
  239. map a-nk. (`.')
  240.  
  241. map  -nk8 up
  242. map  -nk2 down
  243. map  -nk4 left
  244. map  -nk6 right
  245. map  -nk9 pageup
  246. map  -nk3 pagedown
  247. map  -nk5 null
  248. map  -nk7 (screentop first)
  249. map  -nk1 (screenbottom first)
  250. map s-nk7 (top first)
  251. map s-nk1 (bottom first)
  252. map  -nk0 (insert ( ))
  253. map  -nk. -del
  254.  
  255. if b (if t (if r arpload))
  256.  
  257.